// ========================================================================
//  PNG A DUREZA
//  v2.0  11/2/13
//  
//  Convierte un archivo png de tiles, en un fpg de tiles donde su silueta
//  la convierte al color de dureza
//
//  Warcom soft.
// ========================================================================

import "mod_key";
import "mod_map";
import "mod_video";
import "mod_text";
import "mod_scroll";
import "Mod_proc";
import "mod_sound";
import "Mod_screen";
import "Mod_draw";
import "Mod_grproc";
import "Mod_rand";
import "mod_file";
import "mod_math";
import "mod_say";
import "mod_debug";
const
C_TILE_SIZE = 16;
end;

global
ix,iy,i,j,imagen_tiles,nuevo,nuevo2,i_destino,i_destino_dur,image_x=0,image_y=0,count=1;
begin
//cargamos el mapa grafico de tiles 
set_mode(320,240,8);
imagen_tiles=load_png("../nivel/borrar/tiles.png");
nuevo=new_fpg();  
nuevo2=new_fpg();
ix = graphic_info(0,imagen_tiles,G_WIDE);
iy = graphic_info(0,imagen_tiles,G_HEIGHT);
//troceamos el mapa grafico y guardamos los tiles al fpg en memoria
load_pal("../fpg/mickey.fpg");
repeat
	repeat
		i_destino=new_map(C_TILE_SIZE,C_TILE_SIZE,8);
		i_destino_dur=new_map(C_TILE_SIZE,C_TILE_SIZE,8);
		
		map_block_copy(0,i_destino,0,0,imagen_tiles,image_x,image_y,C_TILE_SIZE,C_TILE_SIZE,0);
		
		for (i = 0;i<= C_TILE_SIZE;i++)
			for (j = 0;j<=C_TILE_SIZE;j++)
				if ( map_get_pixel(0,i_destino,j,i) != 0)
					map_put_pixel(0,i_destino_dur,j,i,4);
				end;
			end;
		end;
		
		fpg_add(nuevo,count,0,i_destino_dur);
		fpg_add(nuevo2,count,0,i_destino);
		image_x+=C_TILE_SIZE;
		count++;
	until(image_x==graphic_info(0,imagen_tiles,G_WIDE));
	image_x=0;
	image_y+=C_TILE_SIZE;
until (image_y==graphic_info(0,imagen_tiles,G_HEIGHT));
graph=i_destino_dur;

save_fpg(nuevo,"../nivel/borrar/durezas.fpg");

end